home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / amos / 52 cards.amos / 52 cards.amosSourceCode
AMOS Source Code  |  1995-03-16  |  6KB  |  198 lines
  1. Screen Open 2,350,300,8,Lowres
  2. Curs Off : Flash Off 
  3. Colour 0,$0 : Colour 1,$FFF : Colour 2,$F00 : Colour 3,$AAF
  4. Colour 4,$444
  5. Cls 4
  6. Goto ST
  7. ER:
  8. Ink 0
  9. Box 20,5 To 65,85 : Box 67,5 To 112,85 : Box 114,5 To 159,85
  10. Box 161,5 To 206,85 : Box 208,5 To 253,85 : Box 255,5 To 300,85
  11. Box 20,87 To 65,167 : Box 67,87 To 112,167 : Box 114,87 To 159,167
  12. Box 161,87 To 206,167 : Box 208,87 To 253,167 : Box 255,87 To 300,167
  13. Box 20,169 To 65,249
  14. Return 
  15. RE:
  16. Ink 1,1,0
  17. Bar 20,5 To 65,85 : Bar 67,5 To 112,85 : Bar 114,5 To 159,85
  18. Bar 161,5 To 206,85 : Bar 208,5 To 253,85 : Bar 255,5 To 300,85
  19. Bar 20,87 To 65,167 : Bar 67,87 To 112,167 : Bar 114,87 To 159,167
  20. Bar 161,87 To 206,167 : Bar 208,87 To 253,167 : Bar 255,87 To 300,167
  21. Bar 20,169 To 65,249
  22. Return 
  23. ST:
  24. Pen 1 : Paper 4
  25. Locate 10,22 : Print Space$(30)
  26. Locate 10,24 : Print "Hearts (H):Spades(S)"
  27. Locate 10,26 : Print "Diamonds(D):Clubs(C)"
  28. Locate 10,28 : Print "Return to editor(E)"
  29. Locate 10,22 : Input "Select suit H,S,D,C,E ";A$
  30. L=Len(A$)
  31. If L=0 Then Goto ST
  32. Gosub RE : Gosub ER
  33. Set Pattern 0
  34. If A$="H" Then Ink 2,1,0 : M=1 : Gosub HE : Goto ST
  35. If A$="h" Then Ink 2,1,0 : M=1 : Gosub HE : Goto ST
  36. If A$="S" Then Ink 0,1,0 : M=2 : Gosub HE : Goto ST
  37. If A$="s" Then Ink 0,1,0 : M=2 : Gosub HE : Goto ST
  38. If A$="D" Then Ink 2,1,0 : M=3 : Gosub HE : Goto ST
  39. If A$="d" Then Ink 2,1,0 : M=3 : Gosub HE : Goto ST
  40. If A$="C" Then Ink 0,1,0 : M=4 : Gosub HE : Goto ST
  41. If A$="c" Then Ink 0,1,0 : M=4 : Gosub HE : Goto ST
  42. If A$="E" Then Edit 
  43. If A$="e" Then Edit 
  44. If A$<>"H" Then Goto ST
  45. If A$<>"S" Then Goto ST
  46. If A$<>"D" Then Goto ST
  47. If A$<>"C" Then Goto ST
  48. If A$<>"E" Then Goto ST
  49. FA:
  50. If M=1 Then Gosub H
  51. If M=2 Then Gosub S
  52. If M=3 Then Gosub D
  53. If M=4 Then Gosub C
  54. Return 
  55. HE:
  56. A$="A"
  57. Text 24,16,A$ : Text 52,80,A$
  58. X=38 : Y=45 : Gosub FA
  59. A$="2"
  60. Text 70,16,A$ : Text 100,80,A$
  61. X=71 : Y=25 : Gosub FA
  62. X=99 : Y=65 : Gosub FA
  63. A$="3"
  64. Text 116,16,A$ : Text 150,80,A$
  65. X=120 : Y=25 : Gosub FA
  66. X=130 : Y=45 : Gosub FA
  67. X=145 : Y=65 : Gosub FA
  68. A$="4"
  69. Text 164,16,A$ : Text 195,80,A$
  70. X=165 : Y=25 : Gosub FA
  71. X=190 : Y=25 : Gosub FA
  72. X=165 : Y=65 : Gosub FA
  73. X=190 : Y=65 : Gosub FA
  74. A$="5"
  75. Text 212,16,A$ : Text 243,80,A$
  76. X=213 : Y=25 : Gosub FA
  77. X=238 : Y=25 : Gosub FA
  78. X=225 : Y=45 : Gosub FA
  79. X=213 : Y=65 : Gosub FA
  80. X=238 : Y=65 : Gosub FA
  81. A$="6"
  82. Text 260,16,A$ : Text 290,80,A$
  83. X=260 : Y=25 : Gosub FA
  84. X=260 : Y=45 : Gosub FA
  85. X=260 : Y=65 : Gosub FA
  86. X=285 : Y=25 : Gosub FA
  87. X=285 : Y=45 : Gosub FA
  88. X=285 : Y=65 : Gosub FA
  89. A$="7"
  90. Text 24,98,A$ : Text 52,164,A$
  91. X=24 : Y=106 : Gosub FA
  92. X=24 : Y=124 : Gosub FA
  93. X=24 : Y=150 : Gosub FA
  94. X=49 : Y=106 : Gosub FA
  95. X=49 : Y=124 : Gosub FA
  96. X=49 : Y=150 : Gosub FA
  97. X=36 : Y=116 : Gosub FA
  98. A$="8"
  99. Text 70,98,A$ : Text 100,164,A$
  100. X=70 : Y=106 : Gosub FA
  101. X=70 : Y=122 : Gosub FA
  102. X=70 : Y=137 : Gosub FA
  103. X=70 : Y=150 : Gosub FA
  104. X=98 : Y=106 : Gosub FA
  105. X=98 : Y=122 : Gosub FA
  106. X=98 : Y=137 : Gosub FA
  107. X=98 : Y=150 : Gosub FA
  108. A$="9"
  109. Text 118,98,A$ : Text 146,164,A$
  110. X=117 : Y=106 : Gosub FA
  111. X=117 : Y=122 : Gosub FA
  112. X=117 : Y=137 : Gosub FA
  113. X=117 : Y=150 : Gosub FA
  114. X=145 : Y=106 : Gosub FA
  115. X=145 : Y=122 : Gosub FA
  116. X=145 : Y=137 : Gosub FA
  117. X=145 : Y=150 : Gosub FA
  118. X=132 : Y=114 : Gosub FA
  119. A$="10"
  120. Text 165,98,A$ : Text 185,164,A$
  121. X=165 : Y=106 : Gosub FA
  122. X=165 : Y=122 : Gosub FA
  123. X=165 : Y=137 : Gosub FA
  124. X=165 : Y=150 : Gosub FA
  125. X=193 : Y=106 : Gosub FA
  126. X=193 : Y=122 : Gosub FA
  127. X=193 : Y=137 : Gosub FA
  128. X=193 : Y=150 : Gosub FA
  129. X=178 : Y=114 : Gosub FA
  130. X=178 : Y=145 : Gosub FA
  131. A$="J"
  132. Text 213,98,A$ : Text 242,164,A$
  133. X=211 : Y=106 : Gosub FA
  134. X=241 : Y=150 : Gosub FA
  135. X=215 : Y=106
  136. Z=30 : Gosub FG
  137. Set Pattern 0
  138. Bar 225,96 To 245,101
  139. Bar 220,157 To 240,162
  140. A$="Q"
  141. Set Pattern 0
  142. Text 260,98,A$ : Text 289,164,A$
  143. X=258 : Y=106 : Gosub FA
  144. X=287 : Y=150 : Gosub FA
  145. X=261 : Y=106
  146. Z=31 : Gosub FG
  147. Polyline 276,100 To 286,100 To 289,95 To 274,95 To 276,100
  148. Paint 280,98
  149. Polyline 271,157 To 282,157 To 284,162 To 270,162 To 271,157
  150. Paint 280,160
  151. A$="K"
  152. Set Pattern 0
  153. Text 24,180,A$ : Text 52,246,A$
  154. X=23 : Y=188 : Gosub FA
  155. X=52 : Y=232 : Gosub FA
  156. X=24 : Y=186
  157. Z=32 : Gosub FG
  158. Polyline 39,180 To 49,180 To 51,175 To 37,175 To 39,180
  159. Paint 45,177
  160. Plot 37,173 : Plot 51,173 : Plot 44,173
  161. Plot 37,174 : Plot 51,174 : Plot 44,174
  162. Polyline 34,237 To 44,237 To 46,242 To 32,242 To 34,237
  163. Paint 40,240
  164. Plot 32,244 : Plot 46,244 : Plot 39,244
  165. Plot 32,243 : Plot 46,243 : Plot 39,243
  166. Return 
  167. FG:
  168. Polyline X+15,Y-5 To X+10,Y+5 To X+15,Y+5 To X+15,Y-5 : Set Pattern 0 : Paint X+13,Y+3
  169. Polyline X+25,Y-5 To X+25,Y+5 To X+30,Y+5 To X+25,Y-5 : Set Pattern 0 : Paint X+28,Y+4
  170. Polyline X+10,Y+50 To X+5,Y+40 To X+10,Y+40 To X+10,Y+50 : Set Pattern 0 : Paint X+8,Y+43
  171. Polyline X+20,Y+50 To X+20,Y+40 To X+25,Y+40 To X+20,Y+50 : Set Pattern 0 : Paint X+22,Y+43
  172. Plot X+18,Y-2 : Plot X+21,Y-2
  173. Polyline X+20,Y To X+20,Y+2 : Polyline X+18,Y+4 To X+21,Y+4
  174. Plot X+13,Y+48 : Plot X+16,Y+48
  175. Polyline X+15,Y+46 To X+15,Y+44 : Polyline X+13,Y+42 To X+16,Y+42
  176. Box X+16,Y+6 To X+24,Y+10 : Box X+11,Y+36 To X+19,Y+40
  177. Box X+4,Y+11 To X+30,Y+35 : Set Pattern Z : Paint X+10,Y+20
  178. Return 
  179. H:
  180. Circle X+2.5,Y-2.5,2.5 : Paint X+2,Y-2,0
  181. Circle X+7.5,Y-2.5,2.5 : Paint X+7,Y-2,0
  182. Polyline X,Y-2 To X+5,Y+5 To X+10,Y-2 : Paint X+2,Y,0
  183. Return 
  184. S:
  185. Circle X+2.5,Y+2,2.5 : Paint X+2,Y+1,0
  186. Circle X+7.6,Y+2,2.5 : Paint X+6,Y+1,0
  187. Polyline X-1,Y+2 To X+5,Y-4 To X+10,Y+2 : Paint X+5,Y
  188. Bar X+4.5,Y-2 To X+5.5,Y+6
  189. Return 
  190. D:
  191. Polyline X,Y To X+5,Y-5 To X+10,Y To X+5,Y+5 To X,Y : Paint X+2,Y,0
  192. Return 
  193. C:
  194. Circle X+5,Y-1.5,2.5 : Paint X+4,Y-1,0
  195. Circle X+2.5,Y+2.4,2.5 : Paint X+3,Y+2,0
  196. Circle X+7.5,Y+2.4,2.5 : Paint X+8,Y+2,0
  197. Bar X+4.5,Y+4 To X+5.5,Y+6
  198. Return